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Table of fontents 
A ety 

FORSWRITE_SL = WRITE Sequential LIST-DIRECTED 
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LTITLE FORSWRITE.SL = entry point for FORTRAN WRITE SEQUENTIAL LIST-DIRECTE 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
S_THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eee pokat ite T BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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+ 
FACILITY: FORTRAN Support Library - user callable 


ABSTRACT: 
This module contains the gates oint for the FORTRAN 
WRITE SEQUENTIAL LIST=DIRECTED 1/0 statement. It is simply 
a call to FORS$$I0_BEG with bits in RO which describe the 
parameter List. FORSS$IO_BEG interprets the parameters. 
MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 
. TRANSFER FORSWRITE_SL 
MASK FORSSIO_BEG 
BRw FORSWRITE_SL+2 


This puts the correct mask in entry vector, that is FORSS$IO_BEG entry mask. 
Furthermore this module must only use RO and R1 
since any other register might not be in the entry mask for FORS$I0_BEG. 
ENVIRONMENT: User access mode; mixture of AST level or not 
AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


MODIFIED BY: 
T. Hastings, 29-July-78 
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HISTOR Detailed Current Edit History FORRTL.SRCJFORWRITSL.MAR; 1 
: -SBTTL HISTORY ; Detailed Current Edit History 
; ; Edit History for Version 1 
61 ; 0-10 = Add comment s out vec ors. TNH 23-June-78 
? ; 0-12 = Pass arg i , not ROR, add comments. TNH 29-July-78 
; 1-001 = Update Dseton’ number and copyright periee- JBS 16-NOV-7 
¢: 3 je 4 - t ange statement type symbols to be L + i JBS 07-DEC- H 
5 ; 1-003 - Change | pratenens set e symbols to a 3 1S68K:: 7°" 1-DEC-7 
66 3 1-004 = Ad gicsee nes 
67 ; 1-005 - eee FORSREAD. cre FOR wi ForsRewRiTES ry SF ORSREWRITE 50, 
68 ; RSREAD_IF, FORSR READ 10, “FORSURITES IF, FORSWRITE_10, 
8 H FORSREAD- oKY FORSREURITE mF 
0 0; SBL 2 $79 
0 71 ; 1-006 - Remove " L at pofots tn that need object time formatting, 
0 ue ; utting them in pny pe Y_OBJ so that we can arrange to 
00 73 ; oad k e forse compiler Only when it is needed. 
4 74; JBS 26-JUN-1 
0 75 ; 1-007 = Remove entry point FORSENCODE_MF; we will code a new module 
000 76; for it and FORSSIO BEG, to sée how much 1/0 initiation time 
000 “3 improves. JBS 
000 78 ; 1-008 - Do Likewuse for FORSREAD.. DU and FORSWRITE_DU. Jes Bp pepo 
0000 79 ; 1-009 = Remove all entry points except FORSWRITE rti each of the 
0000 80 ; others gets its own module so we con ge $5<sut-1078 load 
0000 81 ; the necessary UDF ond REC modules. 979 
0000 Ht 3; 1-010 - New parameter format for FORSSIO BEG.” Oe aL 5-Dec-1979 
0000 83 ; 1-011 = Change BRW FORS$IO_BEG+2 to JMP oer FORSSIO- BeGess JAW 21-Feb-1981 
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DECLARATIONS pat iat 9 90:95:09 PORRTL. SAL IFORURITSL MARS 1 . a) 
5 -SBTTL DECLARATIONS 
8 : INCLUDE FILES: 
; SFORPAR ; Define inter-module FORTRAN symbols 
4 SISBDEF ; Define statement type symbols 
0 94 ; 
3 $6 3 EXTERNAL SYMBOLS: 
; 98 -DSABL GBL ; Declare all external symbols 
op m -EXTRN FORSSIO_BEG 3; common 1/0 statement processing 
00 : The ieee references are to make sure the necessary UDF and REC 
00 ; modules are loaded. These are the routines which are called through 
4 ; the dispatch tables in FORSSDISPAT. 
00 i .EXTRN FORSSUDF_WLO, FORSSUDF_WL1, FORSSUDF_WL9 
90 TEXTRN FORSSREC-WSLO, FORSSREC_WSL1, FORSSREC_WSL9 
00 3 
00 3; MACROS: 
00 


NONE 
PSECT DECLARATIONS: 


0000 -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT ,LONG 


OWN STORAGE: 
NONE 
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int for FORTRAN WRIT sto ENTI 16-SEP-1984 00:06:17 YAX/VMS Macro v04-00 
SL - WRITE Sequent at L ST=DIR ~3Eb= | $82 99:88:09 


-SBTTL FORSWRITE_SL = WRITE Sequential LIST-DIRECTED 
1 +4 
; FUNCTIONAL DESCRIPTION: 
134: Initialize the FORTRAN 1/0 system to perform 
: 5 : a WRITE sequential LIST-DIRECTED 1/0 statement. 
$ ; CALLING SEQUENCE: 
1 § : CALL FORSWRITE_SL (unit rl.v, 
139 : - err_adr.j.r C, end_adr.j.rj]) 
148 : INPUT PARAMETERS: 
144 : nit.rl.v logical unit number 
145 ; fers agi.j.r} optional ERR= address 
00 196 3 end_adr.j.r optional END= address 
909 148 : IMPLICIT INPUTS: 
0900 139 ; NONE except those used by FORS$$IO_BEG. 
0900 133 t OUTPUT PARAMETERS: 
oe js} 
000 156 : IMPLICIT OUTPUTS: 
0000 157; 
44 138 3 NONE except those left by FORS$IO_BEG. 
000 160 : COMPLETION CODES: 
000 161; 
99 16¢ ; NONE 
000 164 : SIDE EFFECTS: 
009 196 : NONE except those of FORS$IO_BEG. 
int i 
000° 09 170 FORSWRITE_SL:: .MASK FORSS$IO BEG 
50 09 9A 00 171 MOVZBL #ISBSK_ST_TY rt RO 3 Statement type 
00000002'GF 17 ie 178 JMP G*FORS$10_BES+ 3 branch past call mask 
00B 17% 
008 175 END 


FORRTL.SRCJFORWRITSL.MAR; 1 
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F 10 
e TE - entry point for FORTRAN WRITE SEQUENTI 1 AX/VMS v04-00 P 5 
Symbol table siati ta z g-8EF 71882 90: 88: 4 FORRTL. Bae SPOR FORWRITSL.MAR; 1 — (4) 
FORSS10_ BEG eeneneee 8 6X 
FORSEREE “WSL eeeeeeee =X 
FORSSREC_WSL teeeneee =X 
FORSSR pat eereeeee x 
FORSSUDF WL eeeeeere K 
FORSSUDF — WL eeneeeee =X 
oy 00000000 ac” 1 
FOR 
1SBSK_ST_TY_WSL = §p000009 
peo ewcwre ene sen an ace . 2 
; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 <¢ 0.) 89 ( 0.) NOPIC USR CON ABS LCL mg NOEXE NORD NOWRT NOVEC BYTE 
_FORSCODE 00000008 (¢ 11.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
rere cc e meme eres on ewsrancscee 
: ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 2 00:00:00.09 00:00:00.89 
commend processing 126 BF 8 00. § 00: 288 06. 5 14 
Syabol table sort 5 0:0 : 0: 0 00:00:00.50 
4& -90:00:00:46 00:00:01 268 
we table output § 38 :00.0 OF Re B8 OS 
Psect synopsis output 0:00:00.0 00:00:00.0 
Cross-reference output 2 0:00: 3-9 Fe SR at 
Assembler run totals 33 0:00:02. 0:00:14.65 


The working set Limit was 1050 pages. 

6663 bytes (14 pages) of virtual memory were used to buffer 4 intermediate code. 

There were 20 pages of symbol table space oryece ~ o hold 187 non-local and 0 local symbols. 
source Lines were read in Pass 1, producin bject anes in Pass 2. 

9 pages of virtual memory were used to define aecrie. 


en were nr ere ee ees eee owe ee eee oe 
! ; Macro library statistics ; 


Macro _tibrary name Macros defined 


~$255$0UA28: prone OBJJFORRTL.MLB;1 
“$255$DUA28:(SYSLIBISTARLET.MLB; 

TOTALS (all Libraries) 

183 GETS were required to define 2 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/D1I SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORWRITSL/OBJ=OBJ$:FORWRITSL MSRC$:FORWRITSL/UPDATE=(ENHS:FORWRITSL)+L1 
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